home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / e / ddmoduls.lha / dd_Modules / dd_gui / dd_screennotifytest.e < prev    next >
Text File  |  1995-12-02  |  395b  |  17 lines
  1. MODULE 'dos/dos'
  2. MODULE '*dd_screennotify'
  3.  
  4. PROC main()
  5.   DEF screen,signals
  6.   DEF screennotify:PTR TO dd_screennotify
  7.   IF screen:=LockPubScreen(arg)
  8.     NEW screennotify.new(screen)
  9.     UnlockPubScreen(0,screen)
  10.     signals:=Wait(screennotify.signalmask OR SIGBREAKF_CTRL_C)
  11.     IF signals AND screennotify.signalmask
  12.       screennotify.handle()
  13.     ENDIF
  14.     END screennotify
  15.   ENDIF
  16. ENDPROC
  17.